########################################################################################
##9.2 Exerccio Anlise exploratria simultnea de duas variveis
install.packages("plotrix")

funcao<-function(x,y)
{
  if(length(x)!=length(y))
  {
    stop("Erro: x e y devem ter o mesmo comprimento")
  }
 
  library(plotrix)
  x11()
  par(mfrow=c(3,3))
  boxplot(x,y, xaxt="n", main="Boxplot de x e y")
  axis(side=1,1:2,c("x","y"))
  multhist(list(x,y), col=c("violet","pink"), main="Histograma de x e y")
  legend(x=30,y=34,legend=c("x","y"),col=c("violet","pink"),pch=15)
  qqnorm(x,col="purple",main="Grfico Quantil terico x Quantil de x", xlab="Quantil Terico", ylab="Quantil amostral")
  qqline(x)
  qqnorm(y,col="violet",main="Grfico Quantil terico x Quantil de y", xlab="Quantil Terico", ylab="Quantil amostral")
  qqline(y)
  qqplot(x,y, main="QQplot de x e y", col="violet")
  plot(y~x, main="Grfico de y~x", cor="purple")
  par(mfrow=c(1,1))
  lista<-list(summary(x),summary(y),cor(x,y))
  names(lista)<-c("summary de x", "summary de y", "correlacao")
  return(lista)
}
#######################################################################################
##Teste da funo:
x=rnorm(150,40,2)
y=rnorm(150,50,3)
funcao(x,y)
########################################################################################



